﻿Imports Cls_Common
Partial Class Page_WhatCookToDay_FormulaByFormulaType
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'If Not Page.RouteData.Values("MenuId") Is Nothing Then
        '    Dim iMenuId As Integer = Page.RouteData.Values("MenuId")
        '    Call SetTitleAndMetadescriptionPage(iMenuId)
        '    Page.MetaDescription = smetaDescription
        '    Page.Title = sMetaTitle
        '    'Facebook Tag
        '    Dim metaTagTitle As New HtmlMeta
        '    metaTagTitle.Attributes.Add("property", "og:title")
        '    metaTagTitle.Attributes.Add("content", sMetaTitle)
        '    Page.Header.Controls.RemoveAt(5)
        '    Page.Header.Controls.AddAt(5, metaTagTitle)

        '    Dim metaTagUrl As New HtmlMeta
        '    metaTagUrl.Attributes.Add("property", "og:url")
        '    metaTagUrl.Attributes.Add("content", HttpContext.Current.Request.Url.AbsoluteUri)
        '    Page.Header.Controls.RemoveAt(7)
        '    Page.Header.Controls.AddAt(7, metaTagUrl)

        '    Dim metaTagDesc As New HtmlMeta
        '    metaTagDesc.Attributes.Add("property", "og:description")
        '    metaTagDesc.Attributes.Add("content", smetaDescription)
        '    Page.Header.Controls.RemoveAt(10)
        '    Page.Header.Controls.AddAt(10, metaTagDesc)
        'End If
    End Sub
End Class
